00200	
00210		SUBROUTINE SUBR
00234		COMMON /INS/ INST(27),BG(60)
00258		COMMON P(30),INUM,IPAR,CNT(27),BT,PL(48),IREST,DF,DUR(27)
00282	C   INUM=INST#  IPAR=PARAM#  
00306	C   BT=BASIC TIME P1 WHEN SUBROUTINE IS CALLED
00330	C   IF IREST IS <0, THAT NOTE WILL BE A REST.  
00354	C   INST=INST. NAME,  BG=INSTS' BEGIN TIMES.
00378	C   NOTE #S IN SUBROUTINE: (1-84)  C4=37  FS4=43  C5=49  ETC.
00402	C   F1=86  F15=100 (NO F16!)
00426	
00500		PL(3)=2
00600		PL(4)=3
00700		P(4)='TEST'
00800		END